home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 1999 #5 / 1999 CD 5 (black).iso / Delphi3 / install / data.z / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-08-05  |  1.7 KB  |  76 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls, Menus;
  8.  
  9. type
  10.   TFmMain = class(TForm)
  11.     DBNavigator1: TDBNavigator;
  12.     GridCustomers: TDBGrid;
  13.     GridOrders: TDBGrid;
  14.     GridItems: TDBGrid;
  15.     Label1: TLabel;
  16.     Label3: TLabel;
  17.     Label4: TLabel;
  18.     MainMenu1: TMainMenu;
  19.     About1: TMenuItem;
  20.     procedure GridOrdersEnter(Sender: TObject);
  21.     procedure GridCustomersEnter(Sender: TObject);
  22.     procedure GridItemsEnter(Sender: TObject);
  23.     procedure GridCustomersExit(Sender: TObject);
  24.     procedure About1Click(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   FmMain: TFmMain;
  33.  
  34. implementation
  35.  
  36. uses DM1, About;
  37.  
  38.   {$R *.DFM}
  39.  
  40. procedure TFmMain.GridOrdersEnter(Sender: TObject);
  41. begin
  42.   DBNavigator1.DataSource := Dm.OrdersSource;
  43. end;
  44.  
  45. procedure TFmMain.GridCustomersEnter(Sender: TObject);
  46. begin
  47.   DBNavigator1.DataSource := Dm.CustomerSource;
  48. end;
  49.  
  50. procedure TFmMain.GridItemsEnter(Sender: TObject);
  51. begin
  52.   DBNavigator1.DataSource := Dm.ItemsSource;
  53. end;
  54.  
  55. procedure TFmMain.GridCustomersExit(Sender: TObject);
  56. begin
  57.   if Dm.Customer.State in [dsEdit,dsInsert] then
  58.     Dm.Customer.Post; {required if user clicks onto details
  59.                        after changing key so that cascaded
  60.                        update displays properly}
  61. end;
  62.  
  63. procedure TFmMain.About1Click(Sender: TObject);
  64. var
  65.   fmAboutBox : TFmAboutBox;
  66. begin
  67.   FmAboutBox := TFmAboutBox.Create(self);
  68.   try
  69.     FmAboutBox.showModal;
  70.   finally
  71.     FmAboutBox.free;
  72.   end;
  73. end;
  74.  
  75. end.
  76.